home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CU Amiga Super CD-ROM 6
/
CU Amiga Magazine's Super CD-ROM 06 (1996)(EMAP Images)(GB)(Track 1 of 4)[!][issue 1997-01].iso
/
cucd
/
prog
/
gnu-c
/
geninline
/
genglue.p
< prev
next >
Wrap
Text File
|
1993-12-20
|
374b
|
22 lines
$state = 0;
next_line: while (<STDIN>) {
if (/.even/) {
close (OUTY) if $state == 2;
$state = 1;
}
elsif (/.globl _(\w+)/) {
$state = 2;
if (! open (OUTY, ">$1.s")) {
print STDERR "Can't open $1.s, $!\n";
$state = 0;
next next_line;
}
print OUTY ".text; .even; $_\n";
}
elsif ($state == 2) {
print OUTY "$_";
}
}